InterCD 2000 January/january_2000.iso/Site Building/HoTMetaL Pro/hm6ev.exe/data1.cab/Programming_Samples/Scripts/Template_Helpers/macros.txt

Text File | 1999-10-15 | 6.1 KB | 184 lines

<MACRO name="On_Application_Open" lang="JScript"><![CDATA[
  // Some useful constants
  var viewWYSIWYG = 0;
  var viewTagsOn = 1;
  var viewSource = 2;

  // MoveToReplaceable - helper function for Previous/Next Replaceable macros
  function MoveToReplaceable(dir) {
    var rng = ActiveDocument.Range;
    var foundCandidate;
    var found = false;
    do {
      foundCandidate = rng.Find.Execute("<.PROCINS>", "", "", false, false, false, dir, false);
      if (foundCandidate && (rng.Text.substring(0, 17) == "<?xm-replace_text")) {
        found = true;
      }
    } while (!found && foundCandidate);
    if (found) {
      rng.Select();
    }
    else {
      Application.Beep();
    }
  }
]]></MACRO>

<MACRO name="Previous Replaceable" lang="JScript" key="Ctrl+UpArrow"><![CDATA[
  MoveToReplaceable(false);
]]></MACRO>

<MACRO name="Next Replaceable" lang="JScript" key="Ctrl+DnArrow"><![CDATA[
  MoveToReplaceable(true);
]]></MACRO>

<MACRO name="Remove Readonly Section" lang="JScript" id="148"><![CDATA[

  // Remove the closest surrounding "readonly section" tags
  function Do_RemoveReadonlySection() {
    var rngDIV = ActiveDocument.Range;
    var rngSPAN = rngDIV.Duplicate;

    // SPAN, then DIV
    if (rngSPAN.isParentElement("SPAN")) {
      rngSPAN.MoveToElement("SPAN", false);
      if (rngSPAN.ContainerAttribute("CLASS") == "SQ-ReadOnly") {
        rngSPAN.ReadOnlyContainer = false;
        rngSPAN.RemoveContainerTags();
        return;
      }
    }
    if (rngDIV.isParentElement("DIV")) {
      rngDIV.MoveToElement("DIV", false);
      if (rngDIV.ContainerAttribute("CLASS") == "SQ-ReadOnly") {
        rngDIV.ReadOnlyContainer = false;
        rngDIV.RemoveContainerTags();
        return;
      }
    }
  }

  if (ActiveDocument.ViewType == viewWYSIWYG || ActiveDocument.ViewType == viewTagsOn) {
    Do_RemoveReadonlySection();
  }
]]></MACRO>

<MACRO name="On_Document_Open_Complete" lang="JScript"><![CDATA[
  function MarkReadOnlySections() {
    // Mark special DIV and SPAN sections as read-only
    var rng = ActiveDocument.Range;
    var i;

    var nodeList = ActiveDocument.getElementsByTagName("DIV");
    for (i = 0; i < nodeList.length; i++) {
      var node = nodeList.item(i);
      if (node.getAttribute("CLASS") == "SQ-ReadOnly") {
        rng.SelectBeforeNode(node);
        rng.MoveToElement("DIV");
        rng.ReadOnlyContainer = true;
      }
    }

    nodeList = ActiveDocument.getElementsByTagName("SPAN");
    for (i = 0; i < nodeList.length; i++) {
      var node = nodeList.item(i);
      if (node.getAttribute("CLASS") == "SQ-ReadOnly") {
        rng.SelectBeforeNode(node);
        rng.MoveToElement("SPAN");
        rng.ReadOnlyContainer = true;
      }
    }
  }

  // Read and save last modified date of file
  var name = ActiveDocument.LocalFullName;
  if (Application.ReadableFileExists(name)) {  // if document has never been saved, do nothing
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var f = fso.GetFile(name);
    var mod = Date.parse(f.DateLastModified);
    var props = ActiveDocument.CustomDocumentProperties;
    props.Add("LastMod", mod);
  }

  // Mark sections as readonly
  if (ActiveDocument.ViewType == viewWYSIWYG || ActiveDocument.ViewType == viewTagsOn) {
    MarkReadOnlySections();
  }
]]></MACRO>

<MACRO name="Make ReadOnly Section" lang="JScript" id="132"><![CDATA[
  function Do_MakeReadOnlySection() {
    // Check if we are in a view that works
    var view = Application.ActiveDocument.ViewType;
    if (view != viewWYSIWYG && view != viewTagsOn) {
      var msg = "Can't make read-only section in this view.";
      msg += "\nPlease switch to Tags On or WYSIWYG view and try again.";
      Application.Alert(msg);
      return;
    }

    // Check if we have an extended selection
    if (Selection.IsInsertionPoint) {
      Application.Alert("Select some text and try again.");
      return;
    }

    if (Selection.CanSurround("DIV")) {
      Selection.Surround("DIV");
    }
    else if (Selection.CanSurround("SPAN")) {
      Selection.Surround("SPAN");
    }
    else { // impossible?
      Application.Alert("Could not surround with a DIV or a SPAN tag.");
      return;
    }
    Selection.ContainerAttribute("CLASS") = "SQ-ReadOnly";
    Selection.ReadOnlyContainer = true;
  }

  if (ActiveDocument.ViewType == viewWYSIWYG || ActiveDocument.ViewType == viewTagsOn) {
    Do_MakeReadOnlySection();
  }
]]></MACRO>

<MACRO name="Save As Template" lang="JScript" id="90"><![CDATA[
  var obj = new ActiveXObject("HMExtras.FileDlg");
  var filter = "Web Page Template (*.htm, *.html)|*.htm;*.html|All Files (*.*)|*.*||";
  if (obj.DisplayFileDlg(0, "File Save As", filter, Application.Path + "\\Template")) {
    ActiveDocument.SaveAs(obj.FullPathName, true); // save and put on recent file list
  }
]]></MACRO>

<MACRO name="MakeReplaceText" key="Ctrl+Alt+Z" lang="JScript" id="62" tooltip="Make Replace Text (Ctrl+Alt+Z)" desc="Makes current selection into replaceable text"><![CDATA[
  function Do_MakeReplaceText() {
    // Check if we are in a view that works
    var view = Application.ActiveDocument.ViewType;
    if (view != viewWYSIWYG && view != viewTagsOn) {
      var msg = "Can't make replaceable text in this view.";
      msg += "\nPlease switch to Tags On or WYSIWYG view and try again.";
      Application.Alert(msg);
      return;
    }

    // Check if we have an extended selection
    if (Selection.IsInsertionPoint) {
      Application.Alert("Select some text and try again.");
      return;
    }

    // Handle replace text that is alread there in the selection
    // This is not perfect: if there are other PI's it will fail.
    // But it should be plenty good enough for HTML.
    var txt = Selection.Text;
    var exp = new RegExp("<\\?xm-replace_text ", "g");
    txt = txt.replace(exp, "");
    exp.compile("\\?>", "g");
    txt = txt.replace(exp, "");
    Selection.InsertReplaceableText(txt);
  }

  Do_MakeReplaceText(); // Put it into a function for easier error handling
]]></MACRO>